home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG PD-ROM BV3
/
BMUG PD-ROM Version BV3 (CDRM1097900).iso
/
HyperCard
/
Games
/
HyperArchy
/
HyperArchy Manual
/
background_2331.txt
< prev
next >
Wrap
Text File
|
1990-02-11
|
9KB
|
433 lines
-- background: 2331 from stack: in
-- bmap block id: 7999
-- flags: 0000
-- background id: 0
-- name:
-- part 16 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=43 right=63 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Self Name
----- HyperTalk script -----
on mouseUp
show card field "Self Name Text"
end mouseUp
-- part 18 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=11 top=64 right=194 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Child IDs
----- HyperTalk script -----
on mouseUp
show card field "Child IDs Text"
end mouseUp
-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=11 top=21 right=42 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent ID
----- HyperTalk script -----
on mouseUp
show card field "Parent ID Text"
end mouseUp
-- part 20 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=21 right=42 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent Name
----- HyperTalk script -----
on mouseUp
show card field "Parent Name Text"
end mouseUp
-- part 21 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=11 top=43 right=63 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Self ID
----- HyperTalk script -----
on mouseUp
show card field "Self ID Text"
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=200 top=315 right=337 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Child
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "Create Child"
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=304 top=315 right=337 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "Delete"
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=200 top=291 right=313 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Peer
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "Create Peer"
end mouseUp
-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=96 top=291 right=313 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort: Parent
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "Sort: Parent"
end mouseUp
-- part 32 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=64 right=84 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Parent Stack Name
----- HyperTalk script -----
on mouseUp
show card field "P Stack Name Text"
end mouseUp
-- part 31 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=76 top=85 right=105 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Child Stack Name
----- HyperTalk script -----
on mouseUp
show card field "C Stack Name Text"
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=447 top=313 right=339 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Debug
----- HyperTalk script -----
on mouseUp
if the hilite of me is true then
hide field "Parent ID"
hide field "Self ID"
hide field "Child IDs"
hide field "Parent ID"
hide field "Parent Stack Name"
hide field "Child Stack Name"
show field "Data"
hide menubar
end if
if the hilite of me is false then
hide field "Data"
show menubar
show field "Parent ID"
show field "Self ID"
show field "Child IDs"
show field "Parent ID"
show field "Parent Stack Name"
show field "Child Stack Name"
end if
set the hilite of me to not (the hilite of me)
end mouseUp
-- part 35 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=9 top=68 right=280 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data
----- HyperTalk script -----
on mouseUp
send mouseUp to bkgnd btn "Debug"
end mouseup
-- part 40 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=96 top=315 right=337 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort: Name
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "Sort: Name"
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=297 right=325 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Next Peer
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "To Next Peer"
end mouseUp
-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=297 right=325 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Previous Peer
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "To Previous Peer"
end mouseUp
-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=281 right=312 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 32488 / 32488
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Parent
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "To Parent"
end mouseUp
-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=312 right=342 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 2335 / 2335
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Last Child
----- HyperTalk script -----
on mouseUp
set hilite of me to true
show card field "To Last Child"
end mouseUp
-- part 47 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=304 top=291 right=313 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Terms
----- HyperTalk script -----
on mouseUp
if hilite of me is false then
set hilite of me to true
show field "Terms"
else
set hilite of me to false
hide field "Terms"
end if
end mouseUp
-- part 49 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=374 top=263 right=287 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Manual
----- HyperTalk script -----
on mouseUp
visual effect iris close
pop card
end mouseUp
-- part 48 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=76 top=21 right=274 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Terms
----- HyperTalk script -----
on mouseUp
set hilite of bkgnd btn "Terms" to false
hide me
end mouseUp